/ Computer Shopper 87 / Issue 087 - May 1995 - 0595.iso / ivan / filesfo& / dedos.exe / PHONPAAA.DBR

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2f 00 70 68 6f 6e 65 64 | 61 79 00 00 00 00 00 00 |/.phoned|ay......|
|00000010| 00 00 00 00 00 00 00 02 | 00 00 00 00 00 00 00 02 |........|........|
|00000020| 01 00 00 00 00 00 00 00 | 00 08 00 04 07 24 00 b2 |........|.....$..|
|00000030| 38 00 00 00 00 a8 00 70 | 68 6f 6e 65 62 6f 6f 6b |8......p|honebook|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 01 ff | 7f 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 63 6f 64 65 73 |........|...codes|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 63 6f 64 65 73 00 |........|..codes.|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 7f 00 00 00 |........|........|
|000000d0| 00 00 00 cd 03 00 00 00 | 00 00 00 00 00 00 00 04 |........|........|
|000000e0| 00 f5 03 f9 03 20 01 08 | 00 00 00 24 00 00 00 09 |..... ..|...$....|
|000000f0| 00 01 00 05 00 00 00 09 | 00 0c 00 10 00 00 00 05 |........|........|
|00000100| 00 62 00 18 00 00 00 09 | 00 6a 00 6e 00 00 00 09 |.b......|.j.n....|
|00000110| 00 79 00 7d 00 00 00 09 | 00 8a 00 8e 00 00 00 07 |.y.}....|........|
|00000120| 00 00 01 0a 00 00 00 09 | 00 08 01 1b 01 00 00 09 |........|........|
|00000130| 00 23 01 27 01 00 00 09 | 00 49 01 5c 01 00 00 09 |.#.'....|.I.\....|
|00000140| 00 64 01 68 01 00 00 09 | 00 6b 01 6f 01 00 00 07 |.d.h....|.k.o....|
|00000150| 00 a1 01 15 00 00 00 09 | 00 a9 01 ad 01 00 00 05 |........|........|
|00000160| 00 ef 01 14 00 00 00 09 | 00 f7 01 fb 01 00 00 09 |........|........|
|00000170| 00 0f 02 22 02 00 00 09 | 00 2a 02 3d 02 00 00 06 |..."....|.*.=....|
|00000180| 00 00 00 15 00 00 00 09 | 00 45 02 58 02 00 00 05 |........|.E.X....|
|00000190| 00 86 02 17 00 00 00 09 | 00 8e 02 a1 02 00 00 09 |........|........|
|000001a0| 00 a9 02 ad 02 00 00 05 | 00 e9 02 20 00 00 00 05 |........|... ....|
|000001b0| 00 10 03 1d 00 00 00 09 | 00 18 03 1c 03 00 00 09 |........|........|
|000001c0| 00 57 03 5b 03 00 00 06 | 00 00 00 1f 00 00 00 09 |.W.[....|........|
|000001d0| 00 6f 03 73 03 00 00 09 | 00 ad 03 b1 03 00 00 06 |.o.s....|........|
|000001e0| 00 00 00 23 00 00 00 08 | 00 01 00 23 00 00 00 09 |...#....|...#....|
|000001f0| 00 d5 03 d9 03 00 00 09 | 00 dd 03 e1 03 00 00 02 |........|........|
|00000200| 00 00 00 00 00 01 00 00 | 00 00 00 fd 03 00 03 7d |........|.......}|
|00000210| 0a 00 00 01 04 30 30 30 | 30 03 7d 13 00 03 00 1b |.....000|0.}.....|
|00000220| 00 07 14 02 00 29 00 03 | 00 21 00 00 03 08 00 00 |.....)..|.!......|
|00000230| 00 00 00 00 f0 3f 01 1a | 00 03 1e 00 00 01 01 30 |.....?..|.......0|
|00000240| 01 06 14 00 2f 00 00 00 | 07 14 02 00 50 00 03 00 |..../...|....P...|
|00000250| 27 00 00 03 08 00 00 00 | 00 00 00 f0 3f 01 41 00 |'.......|....?.A.|
|00000260| 03 45 00 00 01 01 28 01 | 06 3b 00 56 00 00 00 01 |.E....(.|.;.V....|
|00000270| 02 33 00 5a 00 00 00 03 | 7d 2d 00 00 03 08 00 00 |.3.Z....|}-......|
|00000280| 00 00 00 00 f0 3f 03 7d | 2f 00 07 1b 01 00 87 00 |.....?.}|/.......|
|00000290| 03 7d 31 00 01 83 00 03 | 7d 39 00 07 16 03 00 a7 |.}1.....|}9......|
|000002a0| 00 03 7d 42 00 03 7d 4a | 00 00 03 08 00 00 00 00 |..}B..}J|........|
|000002b0| 00 00 f0 3f 01 94 00 03 | 98 00 03 9c 00 03 7d 4c |...?....|......}L|
|000002c0| 00 03 7d 4e 00 01 09 b0 | 00 b4 00 00 00 03 7d 50 |..}N....|......}P|
|000002d0| 00 00 01 01 30 01 06 c0 | 00 c4 00 00 00 03 7d 59 |....0...|......}Y|
|000002e0| 00 00 01 01 28 01 06 d0 | 00 d4 00 00 00 01 02 c8 |....(...|........|
|000002f0| 00 d8 00 00 00 03 7d 62 | 00 00 01 01 20 01 06 e8 |......}b|.... ...|
|00000300| 00 ec 00 00 00 01 02 e0 | 00 f0 00 00 00 01 01 b8 |........|........|
|00000310| 00 f8 00 00 00 03 7d 6b | 00 03 7d 6d 00 00 03 08 |......}k|..}m....|
|00000320| 00 00 00 00 00 00 f0 3f | 01 0d 0c 01 10 01 00 00 |.......?|........|
|00000330| 03 7d 6f 00 07 16 03 00 | 40 01 03 7d 78 00 03 7d |.}o.....|@..}x..}|
|00000340| 80 00 00 03 08 00 00 00 | 00 00 00 f0 3f 01 2d 01 |........|....?.-.|
|00000350| 03 31 01 03 35 01 03 7d | 82 00 03 7d 84 00 00 03 |.1..5..}|...}....|
|00000360| 08 00 00 00 00 00 00 f0 | 3f 01 0e 4d 01 51 01 00 |........|?..M.Q..|
|00000370| 00 03 7d 86 00 00 01 00 | 03 7d 8f 00 00 03 08 00 |..}.....|.}......|
|00000380| 00 00 00 00 00 00 00 03 | 7d 91 00 00 03 08 00 00 |........|}.......|
|00000390| 00 00 00 00 10 40 01 0a | 7a 01 7e 01 00 00 03 7d |.....@..|z.~....}|
|000003a0| 93 00 03 7d 95 00 01 09 | 91 01 95 01 00 00 01 01 |...}....|........|
|000003b0| 89 01 99 01 00 00 03 7d | 97 00 07 16 03 00 c6 01 |.......}|........|
|000003c0| 03 7d a0 00 03 7d a8 00 | 00 03 08 00 00 00 00 00 |.}...}..|........|
|000003d0| 00 f0 3f 01 b3 01 03 b7 | 01 03 bb 01 03 7d aa 00 |..?.....|.....}..|
|000003e0| 00 01 01 30 01 0b cf 01 | d3 01 00 00 03 7d b3 00 |...0....|.....}..|
|000003f0| 00 01 01 39 01 09 df 01 | e3 01 00 00 01 01 d7 01 |...9....|........|
|00000400| e7 01 00 00 03 7d bc 00 | 07 1a 02 00 09 02 03 7d |.....}..|.......}|
|00000410| c5 00 03 7d ce 00 01 01 | 02 01 05 02 03 7d d7 00 |...}....|.....}..|
|00000420| 03 7d d9 00 00 03 08 00 | 00 00 00 00 00 f0 3f 01 |.}......|......?.|
|00000430| 0d 13 02 17 02 00 00 03 | 7d db 00 03 7d dd 00 00 |........|}...}...|
|00000440| 03 08 00 00 00 00 00 00 | f0 3f 01 0d 2e 02 32 02 |........|.?....2.|
|00000450| 00 00 03 7d df 00 03 7d | e1 00 00 03 08 00 00 00 |...}...}|........|
|00000460| 00 00 00 f0 3f 01 0d 49 | 02 4d 02 00 00 07 16 03 |....?..I|.M......|
|00000470| 00 79 02 03 7d e3 00 03 | 7d eb 00 00 03 08 00 00 |.y..}...|}.......|
|00000480| 00 00 00 00 f0 3f 01 66 | 02 03 6a 02 03 6e 02 00 |.....?.f|..j..n..|
|00000490| 01 01 29 01 06 60 02 82 | 02 00 00 03 7d ed 00 03 |..)..`..|....}...|
|000004a0| 7d ef 00 00 03 08 00 00 | 00 00 00 00 f0 3f 01 0d |}.......|.....?..|
|000004b0| 92 02 96 02 00 00 03 7d | f1 00 07 16 03 00 bf 02 |.......}|........|
|000004c0| 03 7d fb 00 03 7d 03 01 | 03 7d 05 01 01 b3 02 03 |.}...}..|.}......|
|000004d0| b7 02 03 bb 02 07 14 02 | 00 dd 02 03 7d 07 01 00 |........|....}...|
|000004e0| 03 08 00 00 00 00 00 00 | 08 40 01 ce 02 03 d2 02 |........|.@......|
|000004f0| 00 01 03 30 31 30 01 06 | c8 02 e3 02 00 00 07 14 |...010..|........|
|00000500| 02 00 06 03 03 7d 10 01 | 00 03 08 00 00 00 00 00 |.....}..|........|
|00000510| 00 f0 3f 01 f7 02 03 fb | 02 00 01 01 28 01 06 f1 |..?.....|....(...|
|00000520| 02 0c 03 00 00 03 7d 18 | 01 07 1a 02 00 51 03 00 |......}.|.....Q..|
|00000530| 01 03 28 30 30 07 16 03 | 00 48 03 03 7d 21 01 00 |..(00...|.H..}!..|
|00000540| 03 08 00 00 00 00 00 00 | 10 40 00 03 08 00 00 00 |........|.@......|
|00000550| 00 00 00 f0 3f 01 2e 03 | 03 32 03 03 3d 03 01 22 |....?...|.2..=.."|
|00000560| 03 01 28 03 03 7d 2a 01 | 07 1a 02 00 69 03 03 7d |..(..}*.|....i..}|
|00000570| 34 01 03 7d 3d 01 01 61 | 03 01 65 03 03 7d 47 01 |4..}=..a|..e..}G.|
|00000580| 07 1a 02 00 a7 03 00 01 | 02 30 30 07 16 03 00 9e |........|.00.....|
|00000590| 03 03 7d 50 01 00 03 08 | 00 00 00 00 00 00 10 40 |..}P....|.......@|
|000005a0| 00 03 08 00 00 00 00 00 | 00 f0 3f 01 84 03 03 88 |........|..?.....|
|000005b0| 03 03 93 03 01 79 03 01 | 7e 03 03 7d 59 01 07 1a |.....y..|~..}Y...|
|000005c0| 02 00 bf 03 03 7d 63 01 | 03 7d 6c 01 01 b7 03 01 |.....}c.|.}l.....|
|000005d0| bb 03 03 01 76 01 03 7d | 7e 01 01 06 c5 03 c9 03 |....v..}|~.......|
|000005e0| 00 00 03 7d 87 01 03 01 | 90 01 03 7d 99 01 07 1a |...}....|...}....|
|000005f0| 02 00 ef 03 03 7d a3 01 | 03 7d ac 01 01 e7 03 01 |.....}..|.}......|
|00000600| eb 03 03 00 b6 01 03 7d | bf 01 06 00 00 00 02 03 |.......}|........|
|00000610| 01 00 01 00 00 c9 01 00 | 02 6e 6f 00 79 65 73 00 |........|.no.yes.|
|00000620| 00 74 68 69 73 63 6f 64 | 65 00 74 68 69 73 6e 75 |.thiscod|e.thisnu|
|00000630| 6d 00 70 68 6f 6e 65 00 | 70 68 6f 6e 65 00 70 68 |m.phone.|phone.ph|
|00000640| 6f 6e 65 00 69 00 6a 00 | 74 68 69 73 6e 75 6d 00 |one.i.j.|thisnum.|
|00000650| 74 68 69 73 63 68 61 72 | 00 74 68 69 73 6e 75 6d |thischar|.thisnum|
|00000660| 00 69 00 69 00 6a 00 74 | 68 69 73 63 68 61 72 00 |.i.i.j.t|hischar.|
|00000670| 74 68 69 73 63 68 61 72 | 00 74 68 69 73 63 68 61 |thischar|.thischa|
|00000680| 72 00 69 00 69 00 74 68 | 69 73 63 68 61 72 00 74 |r.i.i.th|ischar.t|
|00000690| 68 69 73 6e 75 6d 00 69 | 00 69 00 69 00 74 68 69 |hisnum.i|.i.i.thi|
|000006a0| 73 63 6f 64 65 00 6b 00 | 6b 00 69 00 6a 00 74 68 |scode.k.|k.i.j.th|
|000006b0| 69 73 63 68 61 72 00 74 | 68 69 73 6e 75 6d 00 69 |ischar.t|hisnum.i|
|000006c0| 00 74 68 69 73 63 68 61 | 72 00 74 68 69 73 63 68 |.thischa|r.thisch|
|000006d0| 61 72 00 74 68 69 73 63 | 6f 64 65 00 74 68 69 73 |ar.thisc|ode.this|
|000006e0| 63 6f 64 65 00 74 68 69 | 73 63 68 61 72 00 6b 00 |code.thi|schar.k.|
|000006f0| 6b 00 69 00 69 00 69 00 | 69 00 74 68 69 73 6e 75 |k.i.i.i.|i.thisnu|
|00000700| 6d 00 69 00 69 00 69 00 | 70 68 6f 6e 65 62 61 63 |m.i.i.i.|phonebac|
|00000710| 6b 00 74 68 69 73 6e 75 | 6d 00 69 00 6a 00 74 68 |k.thisnu|m.i.j.th|
|00000720| 69 73 63 6f 64 65 00 74 | 68 69 73 6e 75 6d 00 63 |iscode.t|hisnum.c|
|00000730| 6f 64 65 62 61 63 6b 00 | 74 68 69 73 63 6f 64 65 |odeback.|thiscode|
|00000740| 00 70 68 6f 6e 65 62 61 | 63 6b 00 63 6f 64 65 62 |.phoneba|ck.codeb|
|00000750| 61 63 6b 00 70 68 6f 6e | 65 62 61 63 6b 00 63 6f |ack.phon|eback.co|
|00000760| 64 65 62 61 63 6b 00 74 | 68 69 73 63 6f 64 65 00 |deback.t|hiscode.|
|00000770| 70 68 6f 6e 65 62 61 63 | 6b 00 63 6f 64 65 62 61 |phonebac|k.codeba|
|00000780| 63 6b 00 70 68 6f 6e 65 | 62 61 63 6b 00 6f 6c 64 |ck.phone|back.old|
|00000790| 63 6f 64 65 00 74 68 69 | 73 63 6f 64 65 00 63 6f |code.thi|scode.co|
|000007a0| 64 65 62 61 63 6b 00 66 | 6f 72 6d 63 6f 64 65 00 |deback.f|ormcode.|
|000007b0| 70 68 6f 6e 65 62 61 63 | 6b 00 63 6f 64 65 62 61 |phonebac|k.codeba|
|000007c0| 63 6b 00 70 68 6f 6e 65 | 62 61 63 6b 00 6e 65 77 |ck.phone|back.new|
|000007d0| 70 68 6f 6e 65 00 70 68 | 6f 6e 65 62 61 63 6b 00 |phone.ph|oneback.|
|000007e0| 04 06 64 65 66 69 6e 65 | 20 74 65 6d 70 20 22 74 |..define| temp "t|
|000007f0| 68 69 73 6e 75 6d 22 20 | 74 65 78 74 20 34 30 2e |hisnum" |text 40.|
|00000800| 0d 64 65 66 69 6e 65 20 | 74 65 6d 70 20 22 74 68 |.define |temp "th|
|00000810| 69 73 63 6f 64 65 22 20 | 74 65 78 74 20 34 2e 0d |iscode" |text 4..|
|00000820| 64 65 66 69 6e 65 20 74 | 65 6d 70 20 22 63 6f 64 |define t|emp "cod|
|00000830| 65 62 61 63 6b 22 20 74 | 65 78 74 2e 0d 64 65 66 |eback" t|ext..def|
|00000840| 69 6e 65 20 74 65 6d 70 | 20 22 70 68 6f 6e 65 62 |ine temp| "phoneb|
|00000850| 61 63 6b 22 20 74 65 78 | 74 20 34 30 2e 0d 64 65 |ack" tex|t 40..de|
|00000860| 66 69 6e 65 20 74 65 6d | 70 20 22 74 68 69 73 63 |fine tem|p "thisc|
|00000870| 68 61 72 22 20 74 65 78 | 74 20 31 2e 0d 64 65 66 |har" tex|t 1..def|
|00000880| 69 6e 65 20 74 65 6d 70 | 20 22 69 22 20 6e 75 6d |ine temp| "i" num|
|00000890| 62 65 72 2e 20 0d 64 65 | 66 69 6e 65 20 74 65 6d |ber. .de|fine tem|
|000008a0| 70 20 22 6a 22 20 6e 75 | 6d 62 65 72 2e 0d 64 65 |p "j" nu|mber..de|
|000008b0| 66 69 6e 65 20 74 65 6d | 70 20 22 6b 22 20 6e 75 |fine tem|p "k" nu|
|000008c0| 6d 62 65 72 2e 0d 66 6f | 72 20 70 68 6f 6e 65 62 |mber..fo|r phoneb|
|000008d0| 6f 6f 6b 3b 0d 20 20 61 | 73 73 69 67 6e 20 74 68 |ook;.  a|ssign th|
|000008e0| 69 73 63 6f 64 65 3a 3d | 22 30 30 30 30 22 20 2e |iscode:=|"0000" .|
|000008f0| 0d 20 20 61 73 73 69 67 | 6e 20 74 68 69 73 6e 75 |.  assig|n thisnu|
|00000900| 6d 3a 3d 70 68 6f 6e 65 | 2e 0d 20 20 69 66 20 66 |m:=phone|..  if f|
|00000910| 69 72 73 74 63 28 70 68 | 6f 6e 65 2c 31 29 3d 22 |irstc(ph|one,1)="|
|00000920| 30 22 20 6f 72 20 66 69 | 72 73 74 63 28 70 68 6f |0" or fi|rstc(pho|
|00000930| 6e 65 2c 31 29 3d 22 28 | 22 20 74 68 65 6e 0d 20 |ne,1)="(|" then. |
|00000940| 20 20 20 61 73 73 69 67 | 6e 20 69 3a 3d 31 20 2e |   assig|n i:=1 .|
|00000950| 0d 20 20 20 20 61 73 73 | 69 67 6e 20 6a 3a 3d 6c |.    ass|ign j:=l|
|00000960| 65 6e 67 74 68 28 74 68 | 69 73 6e 75 6d 29 2e 0d |ength(th|isnum)..|
|00000970| 20 20 20 20 61 73 73 69 | 67 6e 20 74 68 69 73 63 |    assi|gn thisc|
|00000980| 68 61 72 3a 3d 6d 69 64 | 63 28 74 68 69 73 6e 75 |har:=mid|c(thisnu|
|00000990| 6d 2c 69 2c 31 29 2e 0d | 20 20 20 20 77 68 69 6c |m,i,1)..|    whil|
|000009a0| 65 20 28 69 3c 3d 6a 20 | 61 6e 64 20 28 74 68 69 |e (i<=j |and (thi|
|000009b0| 73 63 68 61 72 3d 22 30 | 22 20 6f 72 20 74 68 69 |schar="0|" or thi|
|000009c0| 73 63 68 61 72 3d 22 28 | 22 20 6f 72 20 74 68 69 |schar="(|" or thi|
|000009d0| 73 63 68 61 72 3d 22 20 | 22 29 29 20 64 6f 0d 20 |schar=" |")) do. |
|000009e0| 20 20 20 20 20 61 73 73 | 69 67 6e 20 69 3a 3d 69 |     ass|ign i:=i|
|000009f0| 2b 31 20 2e 0d 20 20 20 | 20 20 20 61 73 73 69 67 |+1 ..   |   assig|
|00000a00| 6e 20 74 68 69 73 63 68 | 61 72 3a 3d 6d 69 64 63 |n thisch|ar:=midc|
|00000a10| 28 74 68 69 73 6e 75 6d | 2c 69 2c 31 29 2e 0d 20 |(thisnum|,i,1).. |
|00000a20| 20 20 20 65 6e 64 0d 20 | 20 20 20 61 73 73 69 67 |   end. |   assig|
|00000a30| 6e 20 69 3a 3d 69 2d 31 | 20 2e 0d 20 20 20 20 61 |n i:=i-1| ..    a|
|00000a40| 73 73 69 67 6e 20 74 68 | 69 73 63 6f 64 65 3a 3d |ssign th|iscode:=|
|00000a50| 22 22 2e 0d 20 20 20 20 | 61 73 73 69 67 6e 20 6b |""..    |assign k|
|00000a60| 3a 3d 30 20 2e 0d 20 20 | 20 20 77 68 69 6c 65 20 |:=0 ..  |  while |
|00000a70| 28 6b 3c 34 20 61 6e 64 | 20 69 3c 3d 6a 29 20 64 |(k<4 and| i<=j) d|
|00000a80| 6f 0d 20 20 20 20 20 20 | 61 73 73 69 67 6e 20 74 |o.      |assign t|
|00000a90| 68 69 73 63 68 61 72 3a | 3d 6d 69 64 63 28 74 68 |hischar:|=midc(th|
|00000aa0| 69 73 6e 75 6d 2c 69 2c | 31 29 2e 0d 20 20 20 20 |isnum,i,|1)..    |
|00000ab0| 20 20 69 66 20 28 74 68 | 69 73 63 68 61 72 3e 3d |  if (th|ischar>=|
|00000ac0| 22 30 22 20 61 6e 64 20 | 74 68 69 73 63 68 61 72 |"0" and |thischar|
|00000ad0| 3c 3d 22 39 22 29 20 74 | 68 65 6e 20 0d 20 20 20 |<="9") t|hen .   |
|00000ae0| 20 20 20 20 20 61 73 73 | 69 67 6e 20 74 68 69 73 |     ass|ign this|
|00000af0| 63 6f 64 65 3a 3d 6a 6f | 69 6e 74 65 78 74 28 74 |code:=jo|intext(t|
|00000b00| 68 69 73 63 6f 64 65 2c | 74 68 69 73 63 68 61 72 |hiscode,|thischar|
|00000b10| 29 2e 0d 20 20 20 20 20 | 20 20 20 61 73 73 69 67 |)..     |   assig|
|00000b20| 6e 20 6b 3a 3d 6b 2b 31 | 20 2e 0d 20 20 20 20 20 |n k:=k+1| ..     |
|00000b30| 20 20 20 61 73 73 69 67 | 6e 20 69 3a 3d 69 2b 31 |   assig|n i:=i+1|
|00000b40| 20 2e 0d 20 20 20 20 20 | 20 65 6c 73 65 0d 20 20 | ..     | else.  |
|00000b50| 20 20 20 20 20 20 61 73 | 73 69 67 6e 20 69 3a 3d |      as|sign i:=|
|00000b60| 69 2b 31 20 2e 0d 20 20 | 20 20 20 20 65 6e 64 0d |i+1 ..  |    end.|
|00000b70| 20 20 20 20 65 6e 64 0d | 20 20 20 20 69 66 20 6d |    end.|    if m|
|00000b80| 69 64 63 28 74 68 69 73 | 6e 75 6d 2c 69 2c 31 29 |idc(this|num,i,1)|
|00000b90| 3d 22 29 22 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |=")" the|n.      |
|00000ba0| 69 3a 3d 69 2b 31 20 2e | 0d 20 20 20 20 65 6e 64 |i:=i+1 .|.    end|
|00000bb0| 0d 20 20 20 20 61 73 73 | 69 67 6e 20 70 68 6f 6e |.    ass|ign phon|
|00000bc0| 65 62 61 63 6b 3a 3d 6d | 69 64 63 28 74 68 69 73 |eback:=m|idc(this|
|00000bd0| 6e 75 6d 2c 69 2c 6a 29 | 2e 0d 20 20 65 6e 64 0d |num,i,j)|..  end.|
|00000be0| 20 20 69 66 20 66 69 72 | 73 74 63 28 74 68 69 73 |  if fir|stc(this|
|00000bf0| 63 6f 64 65 2c 33 29 3d | 22 30 31 30 22 20 74 68 |code,3)=|"010" th|
|00000c00| 65 6e 0d 20 20 20 20 69 | 66 20 66 69 72 73 74 63 |en.    i|f firstc|
|00000c10| 28 74 68 69 73 6e 75 6d | 2c 31 29 3d 22 28 22 20 |(thisnum|,1)="(" |
|00000c20| 74 68 65 6e 0d 20 20 20 | 20 20 20 61 73 73 69 67 |then.   |   assig|
|00000c30| 6e 20 63 6f 64 65 62 61 | 63 6b 3a 3d 6a 6f 69 6e |n codeba|ck:=join|
|00000c40| 74 65 78 74 28 22 28 30 | 30 22 2c 6d 69 64 63 28 |text("(0|0",midc(|
|00000c50| 74 68 69 73 63 6f 64 65 | 2c 34 2c 31 29 29 2e 0d |thiscode|,4,1))..|
|00000c60| 20 20 20 20 20 20 61 73 | 73 69 67 6e 20 70 68 6f |      as|sign pho|
|00000c70| 6e 65 62 61 63 6b 3a 3d | 6a 6f 69 6e 74 65 78 74 |neback:=|jointext|
|00000c80| 28 63 6f 64 65 62 61 63 | 6b 2c 70 68 6f 6e 65 62 |(codebac|k,phoneb|
|00000c90| 61 63 6b 29 2e 0d 20 20 | 20 20 65 6c 73 65 0d 20 |ack)..  |  else. |
|00000ca0| 20 20 20 20 20 61 73 73 | 69 67 6e 20 63 6f 64 65 |     ass|ign code|
|00000cb0| 62 61 63 6b 3a 3d 6a 6f | 69 6e 74 65 78 74 28 22 |back:=jo|intext("|
|00000cc0| 30 30 22 2c 6d 69 64 63 | 28 74 68 69 73 63 6f 64 |00",midc|(thiscod|
|00000cd0| 65 2c 34 2c 31 29 29 2e | 0d 20 20 20 20 20 20 61 |e,4,1)).|.      a|
|00000ce0| 73 73 69 67 6e 20 70 68 | 6f 6e 65 62 61 63 6b 3a |ssign ph|oneback:|
|00000cf0| 3d 6a 6f 69 6e 74 65 78 | 74 28 63 6f 64 65 62 61 |=jointex|t(codeba|
|00000d00| 63 6b 2c 70 68 6f 6e 65 | 62 61 63 6b 29 2e 0d 20 |ck,phone|back).. |
|00000d10| 20 20 20 65 6e 64 20 0d | 20 65 6c 73 65 0d 20 20 |   end .| else.  |
|00000d20| 20 20 66 6f 72 20 63 6f | 64 65 73 20 77 69 74 68 |  for co|des with|
|00000d30| 20 28 6f 6c 64 63 6f 64 | 65 3d 74 65 6d 70 20 74 | (oldcod|e=temp t|
|00000d40| 68 69 73 63 6f 64 65 29 | 20 0d 20 20 20 20 20 20 |hiscode)| .      |
|00000d50| 61 73 73 69 67 6e 20 63 | 6f 64 65 62 61 63 6b 3a |assign c|odeback:|
|00000d60| 3d 66 6f 72 6d 63 6f 64 | 65 2e 0d 20 20 20 20 20 |=formcod|e..     |
|00000d70| 20 61 73 73 69 67 6e 20 | 70 68 6f 6e 65 62 61 63 | assign |phonebac|
|00000d80| 6b 3a 3d 6a 6f 69 6e 74 | 65 78 74 28 63 6f 64 65 |k:=joint|ext(code|
|00000d90| 62 61 63 6b 2c 70 68 6f | 6e 65 62 61 63 6b 29 2e |back,pho|neback).|
|00000da0| 0d 20 20 20 20 65 6e 64 | 0d 20 20 65 6e 64 0d 20 |.    end|.  end. |
|00000db0| 20 6d 6f 64 69 66 79 20 | 72 65 63 6f 72 64 73 20 | modify |records |
|00000dc0| 0d 20 20 20 20 6e 65 77 | 70 68 6f 6e 65 3a 3d 70 |.    new|phone:=p|
|00000dd0| 68 6f 6e 65 62 61 63 6b | 2e 0d 65 6e 64 0d 0d 0d |honeback|..end...|
|00000de0| 2e 70 61 67 65 0d 86 00 | 00 00 00 00 00 00 00 00 |.page...|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e40| 00 00 80 00 00 00 80 00 | 00 00 80 00 00 00 80 00 |........|........|
|00000e50| 00 00 80 00 00 00 80 00 | 00 00 80 00 00 00 80 00 |........|........|
|00000e60| 00 00 80 00 00 00 80 00 | 00 00 80 00 00 00 80 00 |........|........|
|00000e70| 01 00 01 28 63 74 00 28 | 00 00 00 00 6d 00 6e 64 |...(ct.(|....m.nd|
|00000e80| 09 00 01 04 63 74 00 04 | 00 28 00 00 6d 00 6e 64 |....ct..|.(..m.nd|
|00000e90| 12 00 01 19 63 74 00 19 | 00 2c 00 00 6d 00 6e 64 |....ct..|.,..m.nd|
|00000ea0| 1b 00 01 28 63 74 00 28 | 00 45 00 00 6d 00 6e 64 |...(ct.(|.E..m.nd|
|00000eb0| 25 00 01 01 63 74 00 01 | 00 6d 00 00 6d 00 6e 64 |%...ct..|.m..m.nd|
|00000ec0| 2e 00 03 0e 02 74 00 08 | 00 6e 00 00 6d 00 6e 64 |.....t..|.n..m.nd|
|00000ed0| 30 00 03 0e 02 74 00 08 | 00 76 00 00 6d 00 6e 64 |0....t..|.v..m.nd|
|00000ee0| 32 00 03 0e 02 74 00 08 | 00 7e 00 00 6d 00 6e 64 |2....t..|.~..m.nd|
|00000ef0| 34 00 08 74 68 69 73 6e | 75 6d 00 74 68 69 73 63 |4..thisn|um.thisc|
|00000f00| 6f 64 65 00 63 6f 64 65 | 62 61 63 6b 00 70 68 6f |ode.code|back.pho|
|00000f10| 6e 65 62 61 63 6b 00 74 | 68 69 73 63 68 61 72 00 |neback.t|hischar.|
|00000f20| 69 00 6a 00 6b 00       |                         |i.j.k.  |        |
+--------+-------------------------+-------------------------+--------+--------+